home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Borland / Borland C++ For TASM / USRGUIDE.PAK / CONCISE.ASM < prev    next >
Assembly Source File  |  1996-02-21  |  616b  |  25 lines
  1. ; Turbo Assembler example. Copyright (c) 1993 By Borland International, Inc.
  2. ;
  3. ; CONCISE.ASM
  4. ;
  5. ; Usage: bcc calcavg.cpp concise.asm
  6. ;
  7. ; From the Turbo Assembler User's Guide, Ch. 18
  8.  
  9.     .MODEL   small,C
  10.     EXTRN    C IntDivide:PROC
  11.     .CODE
  12.     PUBLIC   C Average
  13. Average      PROC  C ValuePtr:DWORD,NumberOfValues:WORD
  14.     les      bx,ValuePtr
  15.     mov      cx,NumberOfValues
  16.     mov      ax,0
  17. AverageLoop:
  18.     add      ax,es:[bx]
  19.     add      bx,2              ;point to the next value
  20.     loop     AverageLoop
  21.     call     IntDivide C,ax,NumberOfValues
  22.     ret
  23. Average      ENDP
  24.     END
  25.